home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 43.zip / Excellence v1.11 disk 2.adf / prologue < prev    next >
Text File  |  1988-11-23  |  483b  |  26 lines
  1. %%%% Created by excellence! (c)1987,88, Micro-Systems Software, Inc.
  2.  
  3.  
  4. save
  5. erasepage
  6. 50 dict begin
  7.  
  8. /underline {
  9.     currentpoint currentfont dup 
  10.     /FontMatrix get /yscale exch 3 get def
  11.     /FontInfo get dup 
  12.     /UnderlineThickness get yscale mul setlinewidth
  13.     /uline exch /UnderlinePosition get yscale mul def 
  14.     4 2 roll uline add 4 2 roll uline add moveto lineto stroke
  15. } bind def
  16.  
  17. /chgfont {
  18.     cvn findfont exch
  19.     makefont setfont
  20. } bind def
  21.  
  22. %%%% End prologue
  23.  
  24.  
  25.  
  26.